home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / ActiveX Controlls / XP Suite / DATA1.CAB / XP_Suite_Examples / Form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2003-04-24  |  13.9 KB  |  413 lines
  1. VERSION 5.00
  2. Object = "{67DAD3BE-84EC-498E-BBE8-CE32814928FC}#1.1#0"; "ciaXPImage.ocx"
  3. Object = "{AD5B38A5-573A-42F2-A3ED-D791BDBCE98F}#1.0#0"; "ciaXPSideBarMenu.ocx"
  4. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  5. Begin VB.Form Form1 
  6.    BackColor       =   &H00FFFFFF&
  7.    Caption         =   "XPSuite - Windows XP Control Panel Sample"
  8.    ClientHeight    =   7170
  9.    ClientLeft      =   60
  10.    ClientTop       =   450
  11.    ClientWidth     =   10005
  12.    LinkTopic       =   "Form1"
  13.    LockControls    =   -1  'True
  14.    ScaleHeight     =   7170
  15.    ScaleWidth      =   10005
  16.    Begin ciaXPImage.XPImage img 
  17.       Height          =   570
  18.       Index           =   0
  19.       Left            =   4320
  20.       TabIndex        =   2
  21.       Top             =   465
  22.       Width           =   570
  23.       _ExtentX        =   1005
  24.       _ExtentY        =   1005
  25.       BorderStyle     =   0
  26.       Appearance      =   0
  27.       Picture         =   "Form1.frx":0000
  28.       ImageHeight     =   570
  29.       ImageWidth      =   570
  30.       LicValid        =   -1  'True
  31.    End
  32.    Begin MSComctlLib.ImageList ImageList1 
  33.       Left            =   4650
  34.       Top             =   6105
  35.       _ExtentX        =   1005
  36.       _ExtentY        =   1005
  37.       BackColor       =   -2147483643
  38.       ImageWidth      =   32
  39.       ImageHeight     =   32
  40.       MaskColor       =   12632256
  41.       _Version        =   393216
  42.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  43.          NumListImages   =   3
  44.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  45.             Picture         =   "Form1.frx":118A
  46.             Key             =   ""
  47.          EndProperty
  48.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  49.             Picture         =   "Form1.frx":2E94
  50.             Key             =   ""
  51.          EndProperty
  52.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  53.             Picture         =   "Form1.frx":4B9E
  54.             Key             =   ""
  55.          EndProperty
  56.       EndProperty
  57.    End
  58.    Begin XPSideBarMenu.XPSideMenu XPSideMenu1 
  59.       Align           =   3  'Align Left
  60.       Height          =   6795
  61.       Left            =   0
  62.       TabIndex        =   1
  63.       Top             =   0
  64.       Width           =   3870
  65.       _ExtentX        =   6826
  66.       _ExtentY        =   11986
  67.       LicValid        =   -1  'True
  68.    End
  69.    Begin MSComctlLib.StatusBar StatusBar1 
  70.       Align           =   2  'Align Bottom
  71.       Height          =   375
  72.       Left            =   0
  73.       TabIndex        =   0
  74.       Top             =   6795
  75.       Width           =   10005
  76.       _ExtentX        =   17648
  77.       _ExtentY        =   661
  78.       _Version        =   393216
  79.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  80.          NumPanels       =   1
  81.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  82.             Object.Width           =   5292
  83.             MinWidth        =   5292
  84.          EndProperty
  85.       EndProperty
  86.    End
  87.    Begin ciaXPImage.XPImage img 
  88.       Height          =   570
  89.       Index           =   1
  90.       Left            =   5460
  91.       TabIndex        =   3
  92.       Top             =   465
  93.       Width           =   570
  94.       _ExtentX        =   1005
  95.       _ExtentY        =   1005
  96.       BorderStyle     =   0
  97.       Appearance      =   0
  98.       Picture         =   "Form1.frx":6F80
  99.       ImageHeight     =   540
  100.       ImageWidth      =   570
  101.       LicValid        =   -1  'True
  102.    End
  103.    Begin ciaXPImage.XPImage img 
  104.       Height          =   570
  105.       Index           =   2
  106.       Left            =   6480
  107.       TabIndex        =   4
  108.       Top             =   465
  109.       Width           =   570
  110.       _ExtentX        =   1005
  111.       _ExtentY        =   1005
  112.       BorderStyle     =   0
  113.       Appearance      =   0
  114.       Picture         =   "Form1.frx":8022
  115.       ImageHeight     =   570
  116.       ImageWidth      =   585
  117.       LicValid        =   -1  'True
  118.    End
  119.    Begin ciaXPImage.XPImage img 
  120.       Height          =   570
  121.       Index           =   3
  122.       Left            =   7395
  123.       TabIndex        =   5
  124.       Top             =   465
  125.       Width           =   570
  126.       _ExtentX        =   1005
  127.       _ExtentY        =   1005
  128.       BorderStyle     =   0
  129.       Appearance      =   0
  130.       Picture         =   "Form1.frx":9244
  131.       ImageHeight     =   540
  132.       ImageWidth      =   600
  133.       LicValid        =   -1  'True
  134.    End
  135.    Begin ciaXPImage.XPImage img 
  136.       Height          =   570
  137.       Index           =   4
  138.       Left            =   8640
  139.       TabIndex        =   6
  140.       Top             =   465
  141.       Width           =   570
  142.       _ExtentX        =   1005
  143.       _ExtentY        =   1005
  144.       BorderStyle     =   0
  145.       Appearance      =   0
  146.       Picture         =   "Form1.frx":A376
  147.       ImageHeight     =   555
  148.       ImageWidth      =   570
  149.       LicValid        =   -1  'True
  150.    End
  151.    Begin ciaXPImage.XPImage img 
  152.       Height          =   570
  153.       Index           =   5
  154.       Left            =   4305
  155.       TabIndex        =   7
  156.       Top             =   1695
  157.       Width           =   570
  158.       _ExtentX        =   1005
  159.       _ExtentY        =   1005
  160.       BorderStyle     =   0
  161.       Appearance      =   0
  162.       Picture         =   "Form1.frx":B48C
  163.       ImageHeight     =   555
  164.       ImageWidth      =   555
  165.       LicValid        =   -1  'True
  166.    End
  167.    Begin ciaXPImage.XPImage img 
  168.       Height          =   570
  169.       Index           =   6
  170.       Left            =   5415
  171.       TabIndex        =   8
  172.       Top             =   1695
  173.       Width           =   570
  174.       _ExtentX        =   1005
  175.       _ExtentY        =   1005
  176.       BorderStyle     =   0
  177.       Appearance      =   0
  178.       Picture         =   "Form1.frx":C50E
  179.       ImageHeight     =   555
  180.       ImageWidth      =   570
  181.       LicValid        =   -1  'True
  182.    End
  183.    Begin ciaXPImage.XPImage img 
  184.       Height          =   570
  185.       Index           =   7
  186.       Left            =   6495
  187.       TabIndex        =   9
  188.       Top             =   1695
  189.       Width           =   570
  190.       _ExtentX        =   1005
  191.       _ExtentY        =   1005
  192.       BorderStyle     =   0
  193.       Appearance      =   0
  194.       Picture         =   "Form1.frx":D624
  195.       ImageHeight     =   570
  196.       ImageWidth      =   570
  197.       LicValid        =   -1  'True
  198.    End
  199.    Begin ciaXPImage.XPImage img 
  200.       Height          =   570
  201.       Index           =   8
  202.       Left            =   7455
  203.       TabIndex        =   10
  204.       Top             =   1695
  205.       Width           =   570
  206.       _ExtentX        =   1005
  207.       _ExtentY        =   1005
  208.       BorderStyle     =   0
  209.       Appearance      =   0
  210.       Picture         =   "Form1.frx":E7AE
  211.       ImageHeight     =   495
  212.       ImageWidth      =   645
  213.       LicValid        =   -1  'True
  214.    End
  215.    Begin ciaXPImage.XPImage img 
  216.       Height          =   570
  217.       Index           =   9
  218.       Left            =   8715
  219.       TabIndex        =   11
  220.       Top             =   1695
  221.       Width           =   570
  222.       _ExtentX        =   1005
  223.       _ExtentY        =   1005
  224.       BorderStyle     =   0
  225.       Appearance      =   0
  226.       Picture         =   "Form1.frx":F904
  227.       ImageHeight     =   585
  228.       ImageWidth      =   465
  229.       LicValid        =   -1  'True
  230.    End
  231.    Begin MSComctlLib.ImageList ImageList2 
  232.       Left            =   5280
  233.       Top             =   6105
  234.       _ExtentX        =   1005
  235.       _ExtentY        =   1005
  236.       BackColor       =   -2147483643
  237.       ImageWidth      =   16
  238.       ImageHeight     =   16
  239.       MaskColor       =   16711935
  240.       _Version        =   393216
  241.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  242.          NumListImages   =   7
  243.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  244.             Picture         =   "Form1.frx":107F6
  245.             Key             =   ""
  246.          EndProperty
  247.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  248.             Picture         =   "Form1.frx":10D90
  249.             Key             =   ""
  250.          EndProperty
  251.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  252.             Picture         =   "Form1.frx":1132A
  253.             Key             =   ""
  254.          EndProperty
  255.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  256.             Picture         =   "Form1.frx":118C4
  257.             Key             =   ""
  258.          EndProperty
  259.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  260.             Picture         =   "Form1.frx":11E5E
  261.             Key             =   ""
  262.          EndProperty
  263.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  264.             Picture         =   "Form1.frx":123F8
  265.             Key             =   ""
  266.          EndProperty
  267.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  268.             Picture         =   "Form1.frx":12992
  269.             Key             =   ""
  270.          EndProperty
  271.       EndProperty
  272.    End
  273.    Begin VB.Label Label1 
  274.       Alignment       =   2  'Center
  275.       BackColor       =   &H00FFFFFF&
  276.       Caption         =   "Accessibility Options"
  277.       Height          =   420
  278.       Index           =   9
  279.       Left            =   8550
  280.       TabIndex        =   21
  281.       Top             =   2250
  282.       Width           =   915
  283.       WordWrap        =   -1  'True
  284.    End
  285.    Begin VB.Label Label1 
  286.       Alignment       =   2  'Center
  287.       BackColor       =   &H00FFFFFF&
  288.       Caption         =   "User Accounts"
  289.       Height          =   420
  290.       Index           =   8
  291.       Left            =   7350
  292.       TabIndex        =   20
  293.       Top             =   2250
  294.       Width           =   915
  295.       WordWrap        =   -1  'True
  296.    End
  297.    Begin VB.Label Label1 
  298.       Alignment       =   2  'Center
  299.       AutoSize        =   -1  'True
  300.       BackColor       =   &H00FFFFFF&
  301.       Caption         =   "System"
  302.       Height          =   195
  303.       Index           =   7
  304.       Left            =   6270
  305.       TabIndex        =   19
  306.       Top             =   2250
  307.       Width           =   945
  308.       WordWrap        =   -1  'True
  309.    End
  310.    Begin VB.Label Label1 
  311.       Alignment       =   2  'Center
  312.       AutoSize        =   -1  'True
  313.       BackColor       =   &H00FFFFFF&
  314.       Caption         =   "Speech"
  315.       Height          =   195
  316.       Index           =   6
  317.       Left            =   5175
  318.       TabIndex        =   18
  319.       Top             =   2250
  320.       Width           =   945
  321.       WordWrap        =   -1  'True
  322.    End
  323.    Begin VB.Label Label1 
  324.       Alignment       =   2  'Center
  325.       AutoSize        =   -1  'True
  326.       BackColor       =   &H00FFFFFF&
  327.       Caption         =   "Display"
  328.       Height          =   195
  329.       Index           =   5
  330.       Left            =   4065
  331.       TabIndex        =   17
  332.       Top             =   2250
  333.       Width           =   945
  334.       WordWrap        =   -1  'True
  335.    End
  336.    Begin VB.Label Label1 
  337.       Alignment       =   2  'Center
  338.       BackColor       =   &H00FFFFFF&
  339.       Caption         =   "Date and Time"
  340.       Height          =   420
  341.       Index           =   4
  342.       Left            =   8430
  343.       TabIndex        =   16
  344.       Top             =   1020
  345.       Width           =   1140
  346.       WordWrap        =   -1  'True
  347.    End
  348.    Begin VB.Label Label1 
  349.       Alignment       =   2  'Center
  350.       BackColor       =   &H00FFFFFF&
  351.       Caption         =   "Administrative Tools"
  352.       Height          =   420
  353.       Index           =   3
  354.       Left            =   7305
  355.       TabIndex        =   15
  356.       Top             =   1020
  357.       Width           =   1065
  358.       WordWrap        =   -1  'True
  359.    End
  360.    Begin VB.Label Label1 
  361.       Alignment       =   2  'Center
  362.       BackColor       =   &H00FFFFFF&
  363.       Caption         =   "Add or Remove Programs"
  364.       Height          =   630
  365.       Index           =   2
  366.       Left            =   6240
  367.       TabIndex        =   14
  368.       Top             =   1020
  369.       Width           =   1050
  370.       WordWrap        =   -1  'True
  371.    End
  372.    Begin VB.Label Label1 
  373.       Alignment       =   2  'Center
  374.       BackColor       =   &H00FFFFFF&
  375.       Caption         =   "Add Hardware"
  376.       Height          =   420
  377.       Index           =   1
  378.       Left            =   5235
  379.       TabIndex        =   13
  380.       Top             =   1020
  381.       Width           =   915
  382.       WordWrap        =   -1  'True
  383.    End
  384.    Begin VB.Label Label1 
  385.       Alignment       =   2  'Center
  386.       BackColor       =   &H00FFFFFF&
  387.       Caption         =   "Accessibility Options"
  388.       Height          =   420
  389.       Index           =   0
  390.       Left            =   4155
  391.       TabIndex        =   12
  392.       Top             =   1020
  393.       Width           =   915
  394.       WordWrap        =   -1  'True
  395.    End
  396. Attribute VB_Name = "Form1"
  397. Attribute VB_GlobalNameSpace = False
  398. Attribute VB_Creatable = False
  399. Attribute VB_PredeclaredId = True
  400. Attribute VB_Exposed = False
  401. Private Sub Form_Load()
  402.     XPSideMenu1.AddFrame "Control Panel", vbMain, vbOpen, True, ImageList1.ListImages(3).Picture
  403.     XPSideMenu1.AddButton 0, "Switch To Category View", 2400, xpHyperlink, False, True, ImageList2.ListImages(5).Picture, "Switch To Category View"
  404.     XPSideMenu1.AddFrame "See Also", vbSub, vbOpen, True ', ImageList1.ListImages(3).Picture
  405.     XPSideMenu1.AddButton 1, "Windows Update", 2400, xpHyperlink, False, True, ImageList2.ListImages(4).Picture, "Get the latest Updates to your Windows XP"
  406.     XPSideMenu1.AddButton 1, "Help and Support", 2400, xpHyperlink, False, True, ImageList2.ListImages(7).Picture, "Go to the Windows XP Help Guide"
  407. End Sub
  408. Private Sub img_GotFocus(Index As Integer)
  409. End Sub
  410. Private Sub XPSideMenu1_ToolTipOver(Tip As String)
  411.     StatusBar1.Panels(1).Text = Tip
  412. End Sub
  413.